Script: --on mouseUp wdID,wdName,objNo,objName,objValue┬put "Capital Gains report - single" into reporttype┬put printCheck(reporttype,true) into reporttype┬if reporttype¡empty then┬ put " $/Share #Shares Cost basis Gain"&return&return into fld "Printcg"┬ get wsGet(wdID,"body","Text")┬ put it after fld "printcg"┬ unmark all cds┬ set marked of this card to true┬ printReport reportType┬ put empty into fld "printcg"┬end if┬--end mouseUp